home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Math.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  996 b   |  63 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |   Basic math operators
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ allows you to perform various!"
  10. "mathematical operations.!!"
  11. "NOTE: RA currently only supports !"
  12. "integer math.!!"
  13. #A;
  14. "Addition: (+)!"
  15. 4985 9182 + ! " =  14167!"
  16. 9329 0293 + ! " =  9622 !!"
  17.  
  18. "Subtraction: (-)!"
  19. 4985 9182 - ! " = -4197!"
  20. 9329 0293 - ! " = 9036!!"
  21. #A;
  22.  
  23. "Multiplication: (*)!"
  24. 4985 9182 * ! " = 45772270 !"
  25. 9329 0293 * ! " = 2733397!!"
  26.  
  27. "Division: (/)!"
  28. 4985 9182 / ! " =  0!"
  29. 9329 0293 / ! " =  31!!"
  30. #A;
  31.  
  32. "Modulo: (\)!"
  33. 4985 9182 \ ! " = 4985!"
  34. 9329 0293 \ ! " = 246!!"
  35.  
  36. "Mixed Math Examples:!"
  37. 4985 9182 3234 * 3943 + - 3 / ! " = -1912!"
  38. 3493 39483 + 3948 - 39 * 3 / ! " = 507364!!"
  39. #A;
  40. "THE END."
  41. $
  42. &A  "Hit any key:" ?ñ @ ╡`
  43. |
  44. |  RA title routine
  45. |
  46. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  47.  
  48. &O
  49. 40 100 ╜
  50. "RA¬"
  51. 60 45 ╜ 
  52. "⌐ 1986 COM~LINK & S.Koren" 
  53. 80 60 ╜
  54. "All rights reserved." `
  55.  
  56. &L
  57. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  58.  
  59. &N
  60. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  61.  
  62. &P ?ñ @ `
  63. $